Perhaps like this?

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

        - tye (but my friends call me "Tye")