importing variables from 1 file to another

hi
i want to retrieve talespace, datafile's path , size and another size in following querry in shell

Create Tablespace 'A' Datafile 'Some
Path' Size '10G' extent management Local uniform size '64M';

from another file say 'A.txt' where i ll dumb data in sequence separated by commas (,) ...
can u plz suggest me some code to do the same A.txt will b like (b,somepath,size1,size2)...

tnx

#!/usr/bin/perl -w

while(<>){print"$1,$2,$3,$4\n"if/^.+?'(.+?)'.+?'(.+?)'.+?'(.+?)'.+?'(.+?)';$/}

usage: ./script a.txt

IFS=,; while read TBL DATF SIZ USIZ
 do printf "Create Tablespace \'%s\' Datafile \'%s\' Size \'%s\' extent management Local uniform size \'%s\'\n" \
$TBL $DATF $SIZ $USIZ
done < file