Select Code to Download

use strict;
use warnings;
...
    $out .= ($line =~ s/abc/abc_$_/gr) . "\n" for (1,2);
    is( $out, $case->[1], $case->[2] );
}

OUTPUT:
1..2
ok 1 - line 1
ok 2 - line 2