my $string = 'end.'; 
$string =~ /end[.]/;
print $&;