#!/usr/bin/perl -w

 sub ads(@){
 my $str=shift @_;
 my $j=rindex $str, '?';
 if ($j>0){ # если вопрос добавляем ???
    for(my $i=$j;$i<$j+3;$i++) {
               $str =$str. '?'; }
 }

 return ads1($str);}

 sub ads1(@){
 my $str=shift @_;
 my $j=length($str);  #добавляем !!!
    for(my $i=$j;$i<$j+3;$i++) {
               $str =$str. '!'; }
 return $str;}

my $str=$ARGV[0];
if ($str== '') {$str="hello Привет, я блондинка";}
# Преобразование к верхнему регистру
$str=~ tr/а-я,a-z/А-Я,A-Z/;
print ads $str;