my $text = "mississippi";
$text =~ m/(i.*s)/;
print $1 . "\n";