#!/usr/bin/env perl

use strict;

unless (@ARGV == 1){
  die "Usage: extract_comments.pl <fdf file>\n";
}

my $data;

{
  local $/=undef;
  open(FILE, "<" . $ARGV[0]) || die "Failed to open file $ARGV[0]: $!\n";
  $data = <FILE>;
  close(FILE);
}

$data =~ s!\\r! !g;
$data =~ s!\\\(!(!g;
$data =~ s!\\\)!)!g;

while($data =~ m!Contents\((.*?)\)/(M|IT)!g){
  print $1 . "\n";
}