Select Code to Download

use Regexp::Assemble;

...
^SZXX1
^WXXX1
^YZXX1

print Regexp::Assemble
    ->new( chomp=> 1 )
    ->add( <DATA> )
    ->as_string;