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