$ cat spt
#!/usr/bin/perl
$str1="+++++";
check($str1,"\\+");
sub check{
$str1=$_[0];
$str2=$_[1];
if($str1=~m/^$str2{5}$/){
print "Correct.\n";
}else{
print "Wrong..\n";
}
}
$ ./spt
Correct.

#!/usr/bin/perl
$str1="+++++";
$no=5;
check($str1,"\\+",$no);
sub check{
$str1=$_[0];
$str2=$_[1]."\{".$_[2]."\}";

if($str1=~m/^$str2$/){
print "Correct.\n";
}else{
print "Wrong..\n";
}
}

#! /opt/third-party/bin/perl

sub check {
  $first = $_[0];
  $character = $_[1] . "{" . $_[2] . "}";
  print "yes\n" if( $first =~ m/^$character$/ );
}

$str = "+++++";
$no = 5;
check($str, "\\+", $no);

exit 0