@patterns = qw/\B<string>\B \bline\b \bsecondline\b/;

...
    if ($line =~ /$patterns[$i]/i){
       $line =~ s/$patterns[$i]/$replace[$i]/i;