Incorparation of AWK in perl : Hai i have a BLAST out file in tab limited format.like this

p=BAC58264.1	CP014046.1	100.00	435	0	0	1	435	804117	8045	862

p=BAC58264.1	CP014046.1	100.00	160	0	0	3	372	444601	4443 32

p=BAC58264.1	BA000031.2	100.00	435	0	0	1	435	805024	371	 862 

i want to sort that like this based on the 3th column 

p=BAC58264.1	CP014046.1	100.00	435	0	0	1	435	804117	8045	862

p=BAC58264.1	BA000031.2	100.00	435	0	0	1	435	805024	371	 862
 
i usually did this by this awk code "$4>=435">BLASTSORT

how to incorporate this awk code in a perl programme   

