$line =~ s/DATA-A#(.*)#/$1/;