#! perl
use strict;
use warnings;

my @array = ('Mastering linux is a steep learning curve',
             'Using Windows can be frustrating',
             'Plan 9 is rarely seen');

print /linux/   ? "This is linux VM\n"     :
      /Windows/ ? "This is a Windows VM\n" :
                  "I have no idea what it is\n" for @array;