while ((say "Input template string:") && defined(my $string = <>) ) {
    while ((say "Input pattern:") && defined(my $pattern = <STDIN>)) {