--- /dev/null
+#!/usr/bin/env perl
+
+ use v5.010.000;
+ use warnings;
+ use strict;
+
+# say "Hello World!";
+
+# print $ARGV[ 1 ];
+
+
+while ( my $line = <> )
+{
+ if ( $line =~ m/^(\w*)\s+FCC\s+(\d+),(\S+)(.*)$/ )
+ {
+ my $label = $1;
+ my $symlength = $2;
+ my $strfield = $3;
+ my $leftovers = $4;
+ my $symbol = substr( $strfield, 0, $symlength );
+ my $strlength = length( $symbol );
+ if ( $strlength < $symlength )
+ {
+ my $difference = $symlength - $strlength;
+ $symbol .= substr( $leftovers, 0, $difference );
+ $leftovers = substr( $leftovers, $difference );
+ }
+ print "$label\tFCC\t'$symbol'\t; '$strfield'";
+ if ( $leftovers ne "" )
+ {
+ print " : $leftovers";
+ }
+ print "\n";
+ }
+ else
+ {
+ print $line;
+ }
+}
+