Help for this page

Select Code to Download

Select or download this

my $is_sy;
for my $line (@lines) {
...
    $is_sy = ( $line =~ s/^SY/CN/ );
  }
}