#!/usr/bin/perl

@lines = <STDIN>;
chomp(@lines);
foreach $line (@lines) {
  ($barcode,$ckey) = (split(/\|/, $line));
   $barcode =~ s/ *$//g;
  print "^S01IVFFADMIN^FEUCALGARY^FcNone^FWADMIN^NQ$barcode^NAXX ($ckey)^IrAUTO^^O\n";
}