#!/usr/bin/perl
use warnings;

$_ = 'abc123xyz';
$a = s/abc/def/r;