#### BEGIN #### 
$VAR215 = 'MS02-19196-A6-DCIS';
$VAR216 = 'MS02-19196-A6-INVASIVE';
$VAR217 = 'MS01-9167-A7-DCIS';
';AR218 = 'MS06-1878-D2-DCIS
#### END ####
##</code><code>##

use Data::Dumper;
$Data::Dumper::Useqq = 1; # shows all non-printable characters
print Dumper \@lines;