my @data = qr/foo bar bazaquuxinator/;
my $format = q(A3 A10 A3 A35);
my $line = pack $format, @data;
print $line, $/;
my $line = pack $format, @data[0,1], 'quux', $data[2];
print $line, $/;