my $text = "this text";
print $text =~ /this/;