#!/usr/bin/perl
print("The Perl5 Subtract/Divide Program.\n"); $a = 100;
$b = 50;
$c = ($a - $b);
print("A ".$a." B ".$b." C ".$c."\n"); $d = 2500;
$e = 50;
$f = ($d / $e);
print("D ".$d." E ".$e." F ".f
."\n");
IyEvdXNyL2Jpbi9wZXJsCnByaW50KCJUaGUgUGVybDUgU3VidHJhY3QvRGl2aWRlIFByb2dyYW0uXG4iKTsKJGEgPSAxMDA7CiRiID0gNTA7CiRjID0gKCRhIC0gJGIpOwpwcmludCgiQSAiLiRhLiIgQiAiLiRiLiIgQyAiLiRjLiJcbiIpOwokZCA9IDI1MDA7CiRlID0gNTA7CiRmID0gKCRkIC8gJGUpOwpwcmludCgiRCAiLiRkLiIgRSAiLiRlLiIgRiAiLmYuIlxuIik7