Shell Programming and Scripting

perl -ne '$a=$b=$c=0;
@flds=split(/@/);
foreach (@flds) {
$a=($line=$_)=~s/<//g; print $a," LP " if $a;
$b=($line=$_)=~s/>//g;print $b," RP " if $b;
$c=($line=$_)=~s/ //g; print $c," Space  " if $c;
print "\n"}' filename

perl -ne '$a=$b=$c=0;s/^@//;
@flds=split(/@/);
foreach (@flds) {
$a=($line=$_)=~s/<//g; print $a," LP " if $a;
$b=($line=$_)=~s/>//g;print $b," RP " if $b;
$c=($line=$_)=~s/ //g; print $c," Space  " if $c;
if ($a+$b+$c == 0 ){print "0 0";}print "\n"}' file.txt

 perl -ne 'chomp;if($. == 1){$first=$_;next}$a=$b=$c=0;$first=~s/^@//;
@flds=split(/@/, $first);@var=split(/,/);
foreach (@flds) {
print $var[$j++]," ";$a=($line=$_)=~s/<//g; print $a," LP " if $a;
$b=($line=$_)=~s/>//g;print $b," RP " if $b;
$c=($line=$_)=~s/ //g; print $c," Space  " if $c;
if ($a+$b+$c == 0 ){print "0 0";}print "\n"}' filename