open FILE, $filename || die $!;
  while (<FILE>) {
    #search for --from
    if (/--from/) {
      $from = $_;
      $from =~ s/^--from\t//g;
      $from =~ s/\t\\//g;
      $from =~ s/@//g;
    print $from; }