Assuming the data is in $line, you could do any of the following :
1. my ($fieldA,$fieldB,$fieldC,$fieldD) = unpack("a1a20a20a5",$line);
2. $line =~ m/(.)(.{20,20})(.{20,20})(.{5,5})/; ## note, \s is part of .
3. $fA = substr($line,0,1);$fB = substr($line,1,20); ## etc... may the foo be with you