if ($] >= 5.014) {
  ...
}
else {
  ...
}

##</code><code>##

BEGIN {
  *NEW_PERL = ($] >= 5.014) ? sub(){1} : sub(){0};
}
...
if (NEW_PERL) {
  ...
}
else {
  ...
}