$vlan += $filestring =~ /VLAN/g; $up += $filestring =~ /ifOperStatus.*up[(]1[)]/g; $down += $filestring =~ /ifOperStatus.*down[(]2[)]/g; $shut += $filestring =~ /ifAdminStatus.*down[(]2[)]/g;