Untitled

#!/usr/bin/perl -w

open(INV, "inventory.txt") || die "No inventory File";

while($in = <INV>)
{
	$in =~ s/\r//g;
	$in =~ s/\n//g;

	my ($r_code, $inv_bal, $p_num, $p_desc ) =  split(/,/, $in);

	if( $r_code == 11)
	{
		if ($inv_bal == 0)
		{
			if($p_num =~ /[A-Za-z]{2}[0-9]{4}/)
			{
				print "$r_code, $p_num, $p_desc, $inv_bal\n";
			}
			else
			{
				print "Invalid Part Number";	
			}
			
		}
		else
		{	
			print "Invalid Inventory Balance";
		}	
		
	}
	else
	{ 
		print "Invalid Record code";
	}
}

close(INV);

print "END\n";