if ( $_ =~ ( regulare expression ) 
{ 
# print the $1,$2,$3,$4 

..... 
}