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

##</code><code>##

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