my ( $name, @tests ) = unpack( 'A20 A3 A3 A3 A3', $line );

##</code><code>##

my ( $name, @tests ) = unpack( 'A20 (A3)4', $line );

##</code><code>##

my ( $name, @tests ) = unpack( 'A20 (A3)*', $line );