Select Code to Download

#! /usr/bin/perl
use warnings;
...
        say "comma2 in line $." if $line =~ /@{[COMMA2]}/;
    }
}

Encoding: 
apostrophe2 in line 7
...
open quote in line 8
close quote in line 9
comma in line 10