my $line = <>;

if($line =~ /hellonthere/m){
    say "matched";
}
else{
    say "no match";
}

hello
there