my $goal = "uekasdh";
my $search = join "\\n*", split "",  $goal;
my $replace = "JJJJJ";

$line =~ s/$search/$replace/o;