Shell Programming and Scripting

perl -le'
  print  "$ARGV[0] is ", 
    "$ARGV[0]" > "$ARGV[1]" ? "more" : "less", 
      " than $ARGV[1]"
      '

% perl -le'
  print  "$ARGV[0] is ",
    "$ARGV[0]" > "$ARGV[1]" ? "more" : "less",
  " than $ARGV[1]"
  ' 5% 40%
5% is less than 40%
% perl -le'
  print  "$ARGV[0] is ",
    "$ARGV[0]" > "$ARGV[1]" ? "more " : "less ",
  "than $ARGV[1]"
  ' 45% 40%
45% is more than 40%

#!/usr/bin/perl

if ('5%' < '40%') {
        print "less";
}

#!/usr/bin/perl

if ('5%' lt '40%') {
        print "less";
}

#!/usr/bin/perl

if ('5%' < '40%') {
        print "less";
}

#!/usr/bin/perl

use warnings;
use strict;

my ($f, $s) = ('5%', '40%');

chop($f, $s);

if ($f < $s) {
        print "less";
}