while (<>) {
  $inline = $_;
  ($data,$trail) = $inline =~ /this_line_'(.*)('_|\.\.\.);
  print $data . "\n";
}