#!/usr/bin/perl use strict; use warnings; use XML::Twig; my $twig= XML::Twig->parse( \*DATA); for my $item ($twig->get_xpath("//img")) { $item->change_att_name('src', 'links') } $twig->print; __DATA__