Select Code to Download

foreach my $browser ( values %{$data->{devices}->{device}} ) {
  my $useragent = lc($browser->{user_agent});
  my $userfb = lc($browser->{fall_back});
  print Dumper(\$useragent, \$userfb, \$user);  
}

#!/usr/bin/perl -w
use strict;
...
  $user =~ /$useragent/;
  print Dumper(\$useragent, \$userfb, \$user);  
}